Procedure TfrmViewImage.SaveImage(aImg : TImageEnVect; abFirstRep : Boolean);
var
  sTempFile : String;
  iCntrlCnt : Integer;
  iObjCTR   : Integer ;
Begin
    Try
      if aImg.ObjectsCount > 0 then Begin

        ResetFontColor(aImg) ;
        aImg.CopyObjectsToBack(true);
        ResetFontColor(aImg) ; //doesn't change yet
        sTempFile := GetTempFileNameforSave(abFirstRep);
        aImg.IO.SaveToFileJpeg(sTempFile);

        aImg.RemoveAllObjects;

        if abFirstRep then Begin
          for iCntrlCnt := 0 to pnlFirstReport.ControlCount - 1 do Begin
            if (pnlFirstReport.Controls[iCntrlCnt] is TImageEnVect) and (UpperCase(pnlFirstReport.Controls[iCntrlCnt].Name) = 'IMGREP'+ IntToStr(aImg.Tag)) then Begin
              TImageEnVect(pnlFirstReport.Controls[iCntrlCnt]).IO.LoadFromFileJpeg(sTempFile);
              Break;
            End Else {no need};
          End; {end of for loop}
        End Else Begin
          for iCntrlCnt := 0 to pnlSecondReport.ControlCount - 1 do Begin
            if (pnlSecondReport.Controls[iCntrlCnt] is TImageEnVect) and (UpperCase(pnlSecondReport.Controls[iCntrlCnt].Name) = 'IMGREP'+ IntToStr(aImg.Tag)) then Begin
              TImageEnVect(pnlSecondReport.Controls[iCntrlCnt]).IO.LoadFromFileJpeg(sTempFile);
              Break;
            End Else {no need};
          End; {end of for loop}
        End;

      End Else {no need};


    Except
      On E : Exception do Begin
        CodeSite.Send('Error in saving modified image - ' + E.Message);
        Showmessage('Unable to save the image ' + #13+#10+#10 + E.Message);
      End;
    End;
  End;